Міністерство освіти і науки України Національний університет „Львівська політехніка” Інститут комп’ютерних наук та інформаційних технологій Кафедра ПЗ ЗВІТ Лабораторна робота №2 Тема: ” Програмування лінійного обчислювального процесу з використанням арифметичних виразів і операторів присвоєння” Львів - 2005 Мета роботи: Засвоєння програмування лінійного обчислювального процесу, побудованого на використанні арифметичних виразів і операторів присвоєння. Предмет лабораторної роботи складають: способи побудови програми на мові Паскаль; способи програмування арифметичних вирізів і присвоєння значення змінним; правила обчислення на комп’ютері арифметичних вирізів і виконання операторів присвоєння. Завдання: Розробити програму на мові Паскаль і виконати на комп’ютері обчислення значень заданої функції для вибраного набору значень аргумента. Вхідними даними є вигляд функції і значення її коефіцієнтів, що вибираються з таблиці відповідно до номера індивідуального завдання, а також спосіб обчислення поліномів (схема Горнера). ---------------------------------------------------------------------------------------------------------- Обчислення функції
Блок-схема алгоритму
 Текст програми program gorner; uses crt; const a0=7.3738; a1=6.8650; a2=3.0317; a3=0.5831; a4=0.0000; b0=7.3739; b1=15.184; b2=-12.795; b3=5.3542; b4=1.0000; var x,d0,d1,d2,d3,d4,d5,F,c0,c1,c2,c3,c4:real; begin ClrScr; writeln('Vvedit x ,yakuj popadae v promizhok mizh x<=0.46875 i x<=4'); write('x='); readln(x); d0:=a4*(sqr(x)*sqr(x)); d1:=a3*sqr(x)*x+d0; d2:=a2*sqr(x)+d1; d3:=a1*x+d2; d4:=a0+d3; d5:=exp(-x)*d4; c0:=b4*sqr(x)*sqr(x); c1:=b3*sqr(x)*x+c0; c2:=b2*sqr(x)+c1; c3:=b1*x+c2; c4:=b0+c3; F:=d5/c4; if (x>=0.46875) and (x<=4) and (F>=0) and (F<1) then writeln('f(',x:5:3,')=',F:5:3) else begin writeln('!!! x mae nedopustyme znachennya !!!'); end; writeln('Natysnit [ENTER] dlya vyhodu z programy!'); readln; end. end. Протокол роботи програми ----------------------------------------------------------------------------------------------- x=0.5 f(0.5)=0.565 ----------------------------------------------------------------------------------------------- x=5 x mae nedopustyme znachennya